home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4.zip / Atari Forever 4.iso / PD_THEMA / LOTTO / ST_LOTTO.BOX / ST_LOTTO.PRG / ST_LOTTO.LST < prev   
File List  |  1998-03-14  |  56KB  |  1,910 lines
  1. '
  2. ' Programmname: ST_LOTTO.BAS -- V.2.5 - Letze Änderung am 7.6.89
  3. '               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  4. '
  5. ' (c) by Gerhard Danz
  6. '
  7. ' ****************************************************************************
  8. ' * von:                                                                     *
  9. ' *                                     Erstellung von Individualsoftware    *
  10. ' *    Thomas Leufkes                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    *
  11. ' *    Knappenstr. 10                                                        *
  12. ' *    4353 Oer-Erkenschwick       <--- Bitte kostenloses Info anfordern !   *
  13. ' *    Tel.:{02368}/55020                                                    *
  14. ' *                                                                          *
  15. ' ****************************************************************************
  16. '
  17. ' HAUPTPROGRAMMBEGINN
  18. '
  19. Lw$="A"
  20. '
  21. ' PRINTER-Ordner vorhanden
  22. '
  23. If Not Exist("\ST_LOTTO.BOX\PRINTER\HCOPYNEC.PRG")
  24.   Alert 3," Die Diskette ist nicht voll-|ständig. Es kann zu Störungen bei|der Hardcopy kommen (NEC P6).|  {Treiber-Ordner fehlt !}",1,"** OK **",X%
  25. Endif
  26. @Datum_zeit_einstellen
  27. @Vorzugslaufwerk_waehlen
  28. @Treiberprg_laden
  29. @Initialisierung
  30. @Rahmen
  31. @Init2
  32. @Hauptmenu
  33. '
  34. ' HAUPTPROGRAMMENDE
  35. '
  36. '
  37. ' allgemeine Prozeduren
  38. ' ~~~~~~~~~~~~~~~~~~~~~
  39. '
  40. Procedure Inp_txt(X_pos%,Y_pos%,Typ%,Txt_vorgabe$)
  41.   '
  42.   Hidem
  43.   Spalten%=Len(Txt_vorgabe$)
  44.   Startspalte%=X_pos%-1
  45.   Startzeile%=Y_pos%
  46.   Erase Feld$()
  47.   Dim Feld$(Spalten%)
  48.   Deftext 1,0,0,13
  49.   '
  50.   For I=1 To (Spalten%)
  51.     Feld$(I)=Mid$(Txt_vorgabe$,I,1)
  52.     Print At(I+Startspalte%,Startzeile%);Mid$(Txt_vorgabe$,I,1)
  53.   Next I
  54.   '
  55.   Defline 1,0,0
  56.   Box ((Startspalte%)*8-3),((Startzeile%-1)*16),((Startspalte%+Spalten%)*8),((Startzeile%)*16+3)
  57.   '
  58.   Ausgang%=0
  59.   Pos%=1
  60.   Repeat
  61.     Repeat
  62.       Print At(Pos%+Startspalte%,Startzeile%);Feld$(Pos%)
  63.       Taste$=Inkey$
  64.       Print At(Pos%+Startspalte%,Startzeile%);"_"
  65.     Until Taste$<>"" And Taste$<>","
  66.     If Typ%=5
  67.       Taste$=Upper$(Taste$)
  68.     Endif
  69.     Steuerung%=0
  70.     Gosub Steuerung
  71.     If Steuerung%=1
  72.       Print At(Pos%+Startspalte%,Startzeile%);Feld$(Pos%)
  73.       Gosub Auswerten
  74.       Print At(Pos%+Startspalte%,Startzeile%);Feld$(Pos%)
  75.     Else
  76.       If (Asc(Left$(Taste$))<>0 And Asc(Taste$)>31) Or Taste$="b"
  77.         Pruefen_ok%=0
  78.         Gosub Pruefen
  79.         If Pruefen_ok%=1
  80.           Feld$(Pos%)=Taste$
  81.           Print At(Pos%+Startspalte%,Startzeile%);Taste$
  82.           Pos%=Pos%+1
  83.           If Pos%>Spalten%
  84.             Pos%=Spalten%
  85.           Endif
  86.           Print At(Pos%+Startspalte%,Startzeile%);Taste$
  87.         Endif
  88.       Endif
  89.     Endif
  90.   Until Ausgang%=1
  91.   '
  92.   Ausgabe$=""
  93.   For I=1 To Spalten%
  94.     Ausgabe$=Ausgabe$+Feld$(I)
  95.   Next I
  96.   Txt_ausgabe$=Ausgabe$
  97.   Showm
  98.   '
  99.   Color 0
  100.   Defline 1,0,0
  101.   Box ((Startspalte%)*8-3),((Startzeile%-1)*16),((Startspalte%+Spalten%)*8),((Startzeile%)*16+3)
  102.   Color 1
  103.   '
  104. Return
  105. '
  106. Procedure Steuerung
  107.   '
  108.   If Asc(Left$(Taste$))=0
  109.     If Asc(Right$(Taste$))=77 Or Asc(Right$(Taste$))=75 Or Asc(Right$(Taste$))=127 Or Asc(Right$(Taste$))=67 Or Asc(Right$(Taste$))=71
  110.       Steuerung%=1
  111.     Endif
  112.     If Asc(Right$(Taste$))=82 Or Asc(Right$(Taste$))=13 Or (Asc(Right$(Taste$))=98 And Taste$<>"b")
  113.       Steuerung%=1
  114.     Endif
  115.   Else
  116.     If Asc(Taste$)=13 Or Asc(Taste$)=127 Or Asc(Taste$)=8 Or Asc(Taste$)=27 Or (Asc(Taste$)=98 And Taste$<>"b")
  117.       Steuerung%=1
  118.     Endif
  119.   Endif
  120.   '
  121. Return
  122. '
  123. Procedure Auswerten
  124.   '
  125.   If Asc(Right$(Taste$))=75
  126.     Pos%=Pos%-1
  127.     If Pos%<1
  128.       Pos%=1
  129.     Endif
  130.   Endif
  131.   '
  132.   If Asc(Right$(Taste$))=77
  133.     Pos%=Pos%+1
  134.     If Pos%>Spalten%
  135.       Pos%=Spalten%
  136.     Endif
  137.   Endif
  138.   '
  139.   If Asc(Right$(Taste$))=71
  140.     Pos%=1
  141.   Endif
  142.   '
  143.   If Asc(Taste$)=127
  144.     Pos%=1
  145.     For I=1 To Spalten%
  146.       Feld$(I)=" "
  147.       Print At(I+Startspalte%,Startzeile%);Feld$(Pos%)
  148.     Next I
  149.   Endif
  150.   '
  151.   If Asc(Taste$)=13
  152.     Ausgang%=1
  153.   Endif
  154.   '
  155.   If Asc(Right$(Taste$))=98 And Asc(Left$(Tase$))=0 And Taste$<>"b"
  156.     M$="EINGEB.:"
  157.     If Typ%=1
  158.       M$=M$+"alle Zeichen außer ','"
  159.     Endif
  160.     If Typ%=2
  161.       M$=M$+"alle Ziffern"
  162.     Endif
  163.     If Typ%=3
  164.       M$=M$+"alle Ziffern und '.'"
  165.     Endif
  166.     If Typ%=4
  167.       M$=M$+"Zeichen klein/groß"
  168.     Endif
  169.     If Typ%=5
  170.       M$=M$+"alle großen Zeichen"
  171.     Endif
  172.     If Typ%=6
  173.       M$=M$+"alle kleinen Zeichen"
  174.     Endif
  175.     If Typ%=7
  176.       M$=M$+"großen Zeichen+Ziffern"
  177.     Endif
  178.     If Typ%=8
  179.       M$=M$+"klein. Zeichen+Ziffern"
  180.     Endif
  181.     M$=M$+"|STEUERUNG: links,rechts,Help,|Delete,Clr,Backspace,Return,|Enter,Insert;"
  182.     Alert 3,M$,1,"Weiter",X%
  183.   Endif
  184.   '
  185.   If Asc(Taste$)=8
  186.     Feld$(Pos%)=" "
  187.     Print At(Pos%+Startspalte%,Startzeile%);Feld$(Pos%)
  188.     Pos%=Pos%-1
  189.     If Pos%<1
  190.       Pos%=1
  191.     Endif
  192.   Endif
  193.   '
  194.   If Asc(Right$(Taste$))=82
  195.     If Pos%<Spalten%
  196.       For I=Spalten%-1 To Pos% Step -1
  197.         Feld$(I+1)=Feld$(I)
  198.       Next I
  199.       Feld$(Pos%)=" "
  200.     Else
  201.       Feld$(Pos%)=" "
  202.     Endif
  203.     For I=1 To Spalten%
  204.       Print At(I+Startspalte%,Startzeile%);Feld$(I)
  205.     Next I
  206.   Endif
  207.   '
  208. Return
  209. '
  210. Procedure Pruefen
  211.   '
  212.   If Typ%=1 And Asc(Taste$)>31 And Asc(Taste$)<256
  213.     Pruefen_ok%=1
  214.   Endif
  215.   If Typ%=2 And (Asc(Taste$)>47 And Asc(Taste$)<58)
  216.     Pruefen_ok%=1
  217.   Endif
  218.   If Typ%=3 And ((Asc(Taste$)>47 And Asc(Taste$)<58) Or (Asc(Taste$)=46))
  219.     Pruefen_ok%=1
  220.     For I=1 To Spalten%
  221.       If Feld$(I)=Chr$(46)
  222.         Pruefen_ok%=0
  223.       Endif
  224.     Next I
  225.   Endif
  226.   If Typ%=4 And ((Asc(Taste$)>64 And Asc(Taste$)<91) Or (Asc(Taste$)>96 And Asc(Taste$)<123))
  227.     Pruefen_ok%=1
  228.   Endif
  229.   If Typ%=5 And ((Asc(Taste$)>64 And Asc(Taste$)<91) Or Asc(Taste$)=95)
  230.     Pruefen_ok%=1
  231.   Endif
  232.   If Typ%=6 And (Asc(Taste$)>96 And Asc(Taste$)<123)
  233.     Pruefen_ok%=1
  234.   Endif
  235.   If Typ%=7 And ((Asc(Taste$)>64 And Asc(Taste$)<91) Or (Asc(Taste$)>47 And Asc(Taste$)<58) Or Asc(Taste$)=95)
  236.     Pruefen_ok%=1
  237.   Endif
  238.   If Typ%=8 And ((Asc(Taste$)>96 And Asc(Taste$)<123) Or (Asc(Taste$)>47 And Asc(Taste$)<58))
  239.     Pruefen_ok%=1
  240.   Endif
  241.   '
  242. Return
  243. '
  244. Procedure Treiberprg_laden
  245.   '
  246.   ' lädt auf Wunsch ein Treiberprogramm von der Diskette
  247.   '
  248.   Local Maske$
  249.   '
  250.   Rette_fenster_x%=20
  251.   Rette_fenster_y%=120
  252.   Rette_laenge%=120
  253.   Rette_breite%=70
  254.   Sget Maske$
  255.   @Rette_fenster
  256.   Deftext 1,16,90,13
  257.   Text 40,140,"Treiber-"
  258.   Text 40,160,"programm"
  259.   Text 40,180," laden"
  260.   Do
  261.     File$=""
  262.     Fileselect Lw$+":\*.*","",File$
  263.     Exit If File$=""
  264.     Exit If File$<>""
  265.   Loop
  266.   Put Rette_fenster_x%,Rette_fenster_y%+19,Retter$
  267.   Rette_fenster_x%=170
  268.   Rette_fenster_y%=100
  269.   Rette_laenge%=80
  270.   Rette_breite%=300
  271.   '
  272.   Cls
  273.   Print At(1,1)
  274.   If File$<>""
  275.     Exec 0,File$,"",""
  276.     Alert 3,"Treiberprogramm geladen|    und gestartet !",1,"WEITER",X%
  277.   Endif
  278.   Sput Maske$
  279.   '
  280. Return
  281. '
  282. Procedure Rette_fenster
  283.   '
  284.   ' rettet nach den Variablen:
  285.   '   a) Rette_fenster_x%
  286.   '   b) Rette_fenster_y%
  287.   '   c) rette_laenge%     ! x-Ausdehnung
  288.   '   c) rette_breite%     ! y_Ausdehnung
  289.   '
  290.   ' gerettet nach Retter$ (put...)
  291.   '
  292.   Local I
  293.   '
  294.   Get Rette_fenster_x%,Rette_fenster_y%,Rette_fenster_x%+Rette_laenge%,Rette_fenster_y%+Rette_breite%,Retter$
  295.   '
  296.   Color 0
  297.   For I=0 To (Rette_breite%-1)
  298.     Line Rette_fenster_x%,Rette_fenster_y%+I,Rette_fenster_x%+Rette_laenge%,Rette_fenster_y%+I
  299.   Next I
  300.   Color 1
  301.   Defline 1,1,0,0
  302.   Box Rette_fenster_x%,Rette_fenster_y%,Rette_fenster_x%+Rette_laenge%,Rette_fenster_y%+Rette_breite%
  303.   Box Rette_fenster_x%+2,Rette_fenster_y%+2,Rette_fenster_x%+Rette_laenge%-2,Rette_fenster_y%+Rette_breite%-2
  304.   '
  305. Return
  306. '
  307. Procedure Datum_zeit_einstellen
  308.   '
  309.   Rette_fenster_x%=170
  310.   Rette_fenster_y%=100
  311.   Rette_laenge%=300
  312.   Rette_breite%=200
  313.   @Rette_fenster
  314.   Deftext 1,13,0,13
  315.   Text 225,125,"Zeit/Datum einstellen:"
  316.   Deftext 1,0,0,13
  317.   Text 281,155,Date$
  318.   Text 289,175,Time$
  319.   Print At(28,15);Chr$(7);
  320.   Print "Datum:";
  321.   @Inp_txt(36,15,1,Date$)
  322.   Datum$=Txt_ausgabe$
  323.   If Len(Datum$)<>10
  324.     Datum$=Date$
  325.   Endif
  326.   Print At(28,17);Chr$(7);
  327.   Print " Zeit:";
  328.   @Inp_txt(36,17,1,Time$)
  329.   Zeit$=Txt_ausgabe$
  330.   If Len(Zeit$)<>8
  331.     Zeit$=Time$
  332.   Endif
  333.   '
  334.   Settime Zeit$,Datum$                ! Datum & Uhrzeit setzen
  335.   Cls
  336.   '
  337. Return
  338. '
  339. Procedure Zeit_datum_anzeigen(Zeit_x%,Zeit_y%,Datum_x%,Datum_y%)
  340.   '
  341.   ' zeigt das Datum und die Zeit in LCD-Schrift an
  342.   ' der Stelle 'Zeit_x%,Zeit_y%'/'Datum_x%,Datum_y%'
  343.   '
  344.   Deftext 1,0,0,13                       ! Normalschrift
  345.   '
  346.   For I=1 To 10                          ! Datum {10-stellig}
  347.     A$=""
  348.     If Mid$(Date$,I,1)<":" And Mid$(Date$,I,1)>"/"
  349.       A$=Chr$((Asc(Mid$(Date$,I,1))-32))
  350.     Else
  351.       A$=Mid$(Date$,I,1)
  352.     Endif
  353.     Text Datum_x%+((I-1)*8),Datum_y%,A$
  354.   Next I
  355.   '
  356.   For I=1 To 8                           ! Zeit {8-stellig}
  357.     A$=""
  358.     If Mid$(Time$,I,1)<":" And Mid$(Time$,I,1)>"/"
  359.       A$=Chr$((Asc(Mid$(Time$,I,1))-32))
  360.     Else
  361.       A$=Mid$(Time$,I,1)
  362.     Endif
  363.     Text Zeit_x%+((I-1)*8),Zeit_y%,A$
  364.   Next I
  365.   '
  366. Return
  367. '
  368. Procedure Warnton
  369.   '
  370.   ' läßt einen Ton erklingen
  371.   '
  372.   Sound 1,15,5,4,30
  373.   Sound 1,0,5,4,0
  374.   '
  375. Return
  376. '
  377. Procedure Rahmen
  378.   '
  379.   ' zeichnet die Maske auf den Monitor
  380.   '
  381.   Cls
  382.   Bload Lw$+":\ST_LOTTO.BOX\ST_LOTTO.DAT\LOTTO.DOO",Xbios(2)
  383.   Get 0,0,550,320,E_maske$
  384.   @Menuleiste
  385.   '
  386.   Cls
  387.   Box 8,8,620,365
  388.   Box 18,18,632,377
  389.   Deffill 1,2,8
  390.   Fill 622,374
  391.   Color 0
  392.   Box 18,18,632,377
  393.   Color 1
  394.   Box 8,8,620,365
  395.   Deffill 1,2,18
  396.   Fill 1,1
  397.   Put 50,55,E_maske$
  398.   Deftext 1,0,0,13
  399.   Text 290,311,"              "
  400.   Deffill 1,2,17
  401.   Fill 40,40
  402.   Sget E_maske$
  403.   Text 56,360,Space$(64)
  404.   @Zeit_datum_anzeigen(190,360,395,360)
  405.   Print At(8,2);Space$(64)
  406.   '
  407. Return
  408. '
  409. Procedure Pruefen_dkt_a
  410.   '
  411.   ' prüft, ob im LW$-LAUFWERK die Diskette mit der Datei 'Muss_dkt_a$' einliegt
  412.   ' und fordert bei negativem Entscheiden die Diskette einzulegen !
  413.   '
  414.   Files Lw$+":\*.*"
  415.   If Exist(Muss_dkt_a$)=0
  416.     Repeat
  417.       Files Lw$+":\*.*"
  418.       Alert 1,"Bitte Diskette mit der Datei|"+Muss_dkt_a$+"|in Laufwerk/"+Lw$+" einlegen !",1,"Weiter",X%
  419.     Until Exist(Muss_dkt_a$)=-1
  420.   Endif
  421.   '
  422. Return
  423. '
  424. Procedure Menuleiste
  425.   '
  426.   ' generiert den Aufbau den Menüleiste
  427.   '
  428.   Dim Leiste$(50)
  429.   For I=0 To 50
  430.     Read Leiste$(I)
  431.     Exit If Leiste$(I)="***"
  432.   Next I
  433.   '
  434.   Leiste$(I)=""
  435.   Leiste$(I+1)=""
  436.   Data ST-LOTTO,Info
  437.   Data ---------------------
  438.   Data -,-,-,-,-,-,""
  439.   Data Anlegen,   Schein anlegen   ,   Schein ändern   ,""
  440.   Data Auswerten,   Lottoschein auswerten   ,   Auswertung drucken   ,""
  441.   Data Sonstiges,   Diskettenauszug   ,   Hardcopy   ,   Programmende   ,   Anleitung   ,""
  442.   Data ***
  443.   Openw 0
  444.   Fullw 0
  445.   Menu Leiste$()
  446.   '
  447. Return
  448. '
  449. Procedure Hauptmenu
  450.   '
  451.   ' fragt die Menüleiste ab und verzweigt entsprechend
  452.   '
  453.   On Menu  Gosub Menue
  454.   @Sndmsg("*** Bitte wählen Sie aus der Menüleiste ***")
  455.   Do
  456.     Menu Off
  457.     On Menu
  458.   Loop
  459.   '
  460. Return
  461. '
  462. Procedure Hardcopy
  463.   '
  464.   ' löst die Hardcopy-Routine aus
  465.   '
  466.   Gosub Warnton
  467.   Alert 3,"Bitte Matrixdrucker ein-|schalten und ausrichten !",1,"Weiter|Abbruch",X%
  468.   If X%=1
  469.     Hidem
  470.     Hardcopy
  471.     Showm
  472.   Endif
  473.   '
  474. Return
  475. '
  476. Procedure Zeige_dirdkt
  477.   '
  478.   ' druckt oder zeigt das Direktory einer Diskette an
  479.   '
  480.   Alert 3,"Soll der Diskettenauszug|angezeigt oder angedruckt|werden. {Bitte DKT einlegen!}",1,"ANZEIGE|DRUCK",X%
  481.   If X%=1
  482.     Sget Retter$
  483.     Cls
  484.     Chdir Lw$+":\"
  485.     Print At(2,1);"DISKETTENAUSZUG:"
  486.     Print At(2,2);"----------------"
  487.     Files Lw$+":*.*" To Lw$+":INHALT.DAT"
  488.     '
  489.     Open "I",#1,Lw$+":INHALT.DAT"
  490.     Repeat
  491.       Input #1,A$
  492.       If Left$(A$,11)<>" INHALT.DAT"
  493.         Print A$
  494.       Endif
  495.       If Left$(A$,1)="*"
  496.         Chdir "\"+Mid$(A$,2,12)
  497.         Files Lw$+":*.*"
  498.         Chdir "\"
  499.       Endif
  500.     Until Eof(#1)
  501.     Close #1
  502.     '
  503.     N=Asc(Lw$)-64
  504.     Kill Lw$+":\INHALT.DAT"
  505.     Print
  506.     Print " freier Speicherplatz: ";Dfree(N);" Bytes"
  507.     '
  508.     Repeat
  509.       A$=Inkey$
  510.     Until A$<>"" Or Mousek<>0
  511.     Cls
  512.     Sput Retter$
  513.   Else
  514.     @Drucker_einschalten
  515.     If X%=1
  516.       Lprint "DISKETTENAUSZUG:"
  517.       Lprint "----------------"
  518.       Files Lw$+":*.*" To Lw$+":INHALT.DAT"
  519.       '
  520.       Open "I",#1,Lw$+":INHALT.DAT"
  521.       Repeat
  522.         Input #1,A$
  523.         If Left$(A$,11)<>" INHALT.DAT"
  524.           Lprint A$
  525.         Endif
  526.         If Left$(A$,1)="*"
  527.           Chdir "\"+Mid$(A$,2,12)
  528.           Files Lw$+":*.*" To "LST:"
  529.           Chdir "\"
  530.         Endif
  531.       Until Eof(#1)
  532.       Close #1
  533.       '
  534.       N=Asc(Lw$)-64
  535.       Kill "INHALT.DAT"
  536.       Lprint
  537.       Lprint " freier Speicherplatz: ";Dfree(N);" Bytes"
  538.     Endif
  539.   Endif
  540.   '
  541. Return
  542. '
  543. Procedure Information
  544.   '
  545.   ' zeigt in einer Alert-Box Programmname und Programmautor
  546.   '
  547.   Sget Maske$
  548.   Put 125,80,Pd_info$
  549.   Gosub Warnton
  550.   Repeat
  551.     A$=Inkey$
  552.   Until Mousek<>0 Or A$<>""
  553.   For I=1 To 30
  554.     Circle 125,80,I^2
  555.   Next I
  556.   Sput Maske$
  557.   Clr Maske$
  558.   Menu Off
  559.   '
  560. Return
  561. '
  562. ' programmspezifische Prozeduren
  563. ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  564. '
  565. '
  566. ' PROGRAMMENDE
  567. '
  568. Procedure Initialisierung
  569.   '
  570.   ' initialisiert und dimensioniert globale Variablen
  571.   '
  572.   Dim Tipp!(10,49)
  573.   Dim Gewinnzahlen$(4,7)
  574.   Dim Gewinnzahlen2$(4,7)
  575.   Dim Spiel77$(4)
  576.   Dim Spiel772$(4)
  577.   Dim Anleitung$(200)
  578.   '
  579.   Hidem
  580.   Bload Lw$+":\ST_LOTTO.BOX\ST_LOTTO_.DAT\PD_INFO_.PIC",Xbios(2)
  581.   '
  582.   Get 125,75,390+125,239+75,Pd_info$
  583.   Deffill 1,2,8
  584.   Pbox 0,0,639,399
  585.   Put 125,75,Pd_info$
  586.   Box 124,74,124+390+2,74+239+2
  587.   Get 124,74,391+125,240+75,Pd$
  588.   Color 0
  589.   X=125
  590.   Y=75
  591.   Plus_x=1
  592.   Plus_y=1
  593.   Repeat
  594.     X=X+Plus_x
  595.     Y=Y+Plus_y
  596.     If X>250 Or X<1
  597.       Plus_x=Plus_x*-1
  598.       Print Chr$(7)
  599.     Endif
  600.     If Y>160 Or Y<1
  601.       Plus_y=Plus_y*-1
  602.       Print Chr$(7)
  603.     Endif
  604.     Put X,Y,Pd$
  605.     A$=Inkey$
  606.   Until Mousek<>0 Or A$<>""
  607.   Defline 7,0,0,0
  608.   For I=1 To 30
  609.     Circle X,Y,I^2
  610.   Next I
  611.   Defline 1,0,0,0
  612.   Color 1
  613.   Showm
  614.   Clr Pd$
  615.   '
  616. Return
  617. '
  618. Procedure Menue
  619.   '
  620.   ' verzweigt entsprechend der Menüleiste
  621.   '
  622.   Defmouse 3
  623.   @Sndmsg(Leiste$(Menu(0)))
  624.   @Zeit_datum_anzeigen(190,360,395,360)
  625.   If Leiste$(Menu(0))="Info"
  626.     @Information
  627.   Endif
  628.   If Leiste$(Menu(0))="   Schein anlegen   "
  629.     @Schein_anlegen
  630.   Endif
  631.   If Leiste$(Menu(0))="   Schein ändern   "
  632.     @Schein_aendern
  633.   Endif
  634.   If Leiste$(Menu(0))="   Lottoschein auswerten   "
  635.     File$=""
  636.     Naechster_schein:
  637.     @Schein_auswerten
  638.     '
  639.     Msg$=""
  640.     Puffer$=File$
  641.     File$=""
  642.     File$=Left$(Puffer$,22)
  643.     Sch_nr=Val(Mid$(Puffer$,23,2))+1
  644.     Sch_nr$=Str$(Sch_nr)
  645.     If Len(Sch_nr$)=1
  646.       Sch_nr$="0"+Sch_nr$
  647.     Endif
  648.     File$=File$+Sch_nr$+Right$(Puffer$,4)
  649.     If Exist(File$)
  650.       Msg$="Soll der unten aufgeführte|Schein ausgewertet werden ?|"+File$
  651.       Alert 2,Msg$,1,"JA|NEIN",X%
  652.       If X%=1
  653.         Goto Naechster_schein
  654.       Endif
  655.     Endif
  656.     '
  657.   Endif
  658.   If Leiste$(Menu(0))="   Auswertung drucken   "
  659.     @Auswertung_drucken
  660.   Endif
  661.   If Leiste$(Menu(0))="   Diskettenauszug   "
  662.     @Zeige_dirdkt
  663.   Endif
  664.   If Leiste$(Menu(0))="   Hardcopy   "
  665.     @Hardcopy
  666.   Endif
  667.   If Leiste$(Menu(0))="   Anleitung   "
  668.     @Anleitung
  669.   Endif
  670.   If Leiste$(Menu(0))="   Programmende   "
  671.     Alert 2,"Wollen Sie zurück zum|     Desktop ?",2,"JA|NEIN",X%
  672.     If X%=1
  673.       System
  674.     Endif
  675.   Endif
  676.   '
  677.   @Sndmsg("*** Bitte wählen Sie aus der Menüleiste ***")
  678.   '
  679. Return
  680. '
  681. Procedure Sndmsg(Nachricht$)
  682.   '
  683.   ' zeigt in der Infozeile die Nachricht an
  684.   '
  685.   Deftext 1,0,0,13
  686.   Print At(8,2);Space$(64)
  687.   Print At(8,2);Space$(32-Int(Len(Nachricht$)/2));Nachricht$
  688.   Defmouse 3
  689.   '
  690. Return
  691. '
  692. Procedure Schein_anlegen
  693.   '
  694.   ' legt einen neuen Schein an
  695.   '
  696.   Alert 2,"Wollen Sie einen neuen|Lottoschein erfassen ?",1,"JA|NEIN",X%
  697.   If X%=1
  698.     '
  699.     ' 1.) Erfassen der Spielschein-Nr.
  700.     '
  701.     Print At(8,2);Space$(64)
  702.     Print At(8,2);"Bitte geben Sie die Spielschein-Nr. ein:"
  703.     Print Chr$(7)
  704.     @Inp_txt(49,2,1,"__")
  705.     Schein_nr$=Txt_ausgabe$
  706.     Deftext 1,0,0,6
  707.     Text 533,154,Schein_nr$
  708.     '
  709.     ' 2.) Erfassen der Losnummer (Spiel 77)
  710.     '
  711.     Deftext 1,0,0,13
  712.     Print At(8,2);Space$(64)
  713.     Print At(8,2);"Bitte geben Sie die Los-Nr. ein:"
  714.     @Inp_txt(41,2,1,"_______")
  715.     Los_nr$=Txt_ausgabe$
  716.     Text 295,310,Los_nr$
  717.     '
  718.     ' 3.) Erfassen der Wochennummer
  719.     '
  720.     Deftext 1,0,0,13
  721.     Print At(8,2);Space$(64)
  722.     Print At(8,2);"Bitte geben Sie die Wochen-Nr. ein:"
  723.     @Inp_txt(44,2,1,"__")
  724.     Wochen_nr$=Txt_ausgabe$
  725.     Deftext 1,0,0,6
  726.     Text 348,275,Wochen_nr$
  727.     '
  728.     ' 4.) Anklicken der Tippzahlen (6/0 pro Block)
  729.     '
  730.     @Sndmsg("Bitte klicken Sie Ihre Tippzahlen an. {ESC=ENDE}")
  731.     '
  732.     For I=1 To 10
  733.       For X=1 To 49
  734.         Tipp!(I,X)=False
  735.       Next X
  736.     Next I
  737.     '
  738.     Repeat
  739.       Repeat
  740.         '
  741.         Mk=0
  742.         Repeat
  743.           X=Mousex
  744.           Y=Mousey
  745.           A$=Inkey$
  746.         Until Mousek=1 Or A$=Chr$(27) Or Mousek=2
  747.         '
  748.         If Mousek=1
  749.           Mk=1
  750.         Endif
  751.         If Mousek=2
  752.           Mk=2
  753.         Endif
  754.         '
  755.         If A$<>Chr$(27) And X>57 And X<567 And Y>43 And Y<259
  756.           '
  757.           ' 1.) Welcher Block ?
  758.           '
  759.           Block%=0
  760.           If Not (Y>140 And Y<164)
  761.             Block%=Int((X-58)/103)+1
  762.             If Y>163
  763.               Block%=Block%+5
  764.             Endif
  765.           Endif
  766.           '
  767.           ' 2.) Welchen Zahl in dem Block ?
  768.           '
  769.           If Block%<>0
  770.             Zahl%=0
  771.             Faktor%=Block%-1
  772.             If Block%>5
  773.               Faktor%=Faktor%-5
  774.             Endif
  775.             Zahl%=Int(((X-41-(103*Faktor%))/14.7))
  776.             Faktor%=0
  777.             If Block%>5
  778.               Faktor%=1
  779.             Endif
  780.             Zahl%=Zahl%+(7*Int(((Y-44-(119.4*Faktor%))/13.4)))
  781.           Endif
  782.           '
  783.           If Block%>0 And Zahl%<50 And Zahl%>0 And Block%<11
  784.             '
  785.             If (Not Tipp!(Block%,Zahl%) And Mk=1)
  786.               Tipp!(Block%,Zahl%)=True           ! Tipp setzen
  787.             Endif
  788.             If (Tipp!(Block%,Zahl%) And Mk=2)
  789.               Tipp!(Block%,Zahl%)=False          ! Tipp löschen
  790.             Endif
  791.             '
  792.             @Tipp_anzeigen(Block%,Zahl%)
  793.             '
  794.           Endif
  795.           '
  796.         Else                        ! Pruefen, ob 0/6 Tipps
  797.           Ok!=True
  798.           For I=1 To 10
  799.             Zaehler%=0
  800.             For X=1 To 49
  801.               If Tipp!(I,X)
  802.                 Zaehler%=Zaehler%+1
  803.               Endif
  804.             Next X
  805.             If Zaehler%<>6 And Zaehler%<>0
  806.               Ok!=False
  807.             Endif
  808.           Next I
  809.         Endif
  810.       Until A$=Chr$(27)
  811.       '
  812.       If Not Ok!
  813.         Alert 3,"Zurück zur Erfassung !!!|Falsche Anzahl Tipp's.",1,"** OK **",X%
  814.       Endif
  815.       '
  816.     Until Ok!                     ! Erfassungsende
  817.     '
  818.     Alert 3,"   Schein wird im folgenden|auf Diskette gesichert. Bitte|geben Sie den Dateinamen in|   der Fileselect-Box ein.",1,"** OK **",X%
  819.     '
  820.     ' Sichern des angelegten Lottoscheines auf Diskette
  821.     '
  822.     Do
  823.       File$=""
  824.       Fileselect Lw$+":\*.*","",File$
  825.       Exit If File$=""
  826.       Exit If File$<>""
  827.     Loop
  828.     '
  829.     If Right$(File$,3)<>"NEU"
  830.       File$=Left$(File$,25)+"NEU"
  831.     Endif
  832.     '
  833.     Open "O",#1,File$
  834.     Print #1,Schein_nr$
  835.     Print #1,Los_nr$
  836.     Print #1,Wochen_nr$
  837.     For I=1 To 10
  838.       For X=1 To 49
  839.         Print #1,Tipp!(I,X)
  840.       Next X
  841.     Next I
  842.     Close #1
  843.     '
  844.     Sput E_maske$
  845.     '
  846.   Endif
  847.   '
  848. Return
  849. '
  850. Procedure Schein_aendern
  851.   '
  852.   ' Schein-Korrektur
  853.   '
  854.   Alert 2,"Wollen Sie einen neuen|Lottoschein korrigieren ?",1,"JA|NEIN",X%
  855.   If X%=1
  856.     File$=""
  857.     If File$=""
  858.       Alert 3,"   Schein wird im folgenden| von Diskette geladen. Bitte|   wählen Sie mit Hilfe der|     Fileselect-Box aus.",1,"** OK **",X%
  859.     Endif
  860.     '
  861.     ' Laden des zu korrigierenden Lottoscheines von Diskette
  862.     '
  863.     If File$=""
  864.       Do
  865.         File$=""
  866.         Fileselect Lw$+":\*.*","",File$
  867.         Exit If File$=""
  868.         Exit If File$<>""
  869.       Loop
  870.     Endif
  871.     '
  872.     If File$<>""
  873.       Open "I",#1,File$
  874.       Input #1,Schein_nr$
  875.       Input #1,Los_nr$
  876.       Input #1,Wochen_nr$
  877.       For I=1 To 10
  878.         For X=1 To 49
  879.           Input #1,Tipp!(I,X)
  880.         Next X
  881.       Next I
  882.       '
  883.       X=0
  884.       If Not Eof(#1)
  885.         Repeat
  886.           X=X+1
  887.           For I=1 To 7
  888.             Input #1,Gewinnzahlen$(X,I)
  889.           Next I
  890.           Input #1,Spiel77$(X)
  891.         Until Eof(#1)
  892.       Endif
  893.       Close #1
  894.       '
  895.       Anz_auswertung%=X
  896.       '
  897.       '
  898.       ' 1.) Erfassen der Spielschein-Nr.
  899.       '
  900.       Print At(8,2);Space$(64)
  901.       Print At(8,2);"Bitte geben Sie die Spielschein-Nr. ein:"
  902.       Print Chr$(7)
  903.       @Inp_txt(49,2,1,Schein_nr$)
  904.       Schein_nr$=Txt_ausgabe$
  905.       Deftext 1,0,0,6
  906.       Text 533,154,Schein_nr$
  907.       '
  908.       ' 2.) Erfassen der Losnummer (Spiel 77)
  909.       '
  910.       Deftext 1,0,0,13
  911.       Print At(8,2);Space$(64)
  912.       Print At(8,2);"Bitte geben Sie die Los-Nr. ein:"
  913.       @Inp_txt(41,2,1,Los_nr$)
  914.       Los_nr$=Txt_ausgabe$
  915.       Text 295,310,Los_nr$
  916.       '
  917.       ' 3.) Erfassen der Wochennummer
  918.       '
  919.       Deftext 1,0,0,13
  920.       Print At(8,2);Space$(64)
  921.       Print At(8,2);"Bitte geben Sie die Wochen-Nr. ein:"
  922.       @Inp_txt(44,2,1,Wochen_nr$)
  923.       Wochen_nr$=Txt_ausgabe$
  924.       Deftext 1,0,0,6
  925.       Text 348,275,Wochen_nr$
  926.       '
  927.       ' 4.) Anklicken der Tippzahlen (6/0 pro Block)
  928.       '
  929.       @Sndmsg("Bitte klicken Sie Ihre Tippzahlen an. {ESC=ENDE}")
  930.       '
  931.       For Z=1 To 10
  932.         For T=1 To 49
  933.           If Tipp!(Z,T)=True
  934.             @Tipp_anzeigen(Z,T)
  935.           Endif
  936.         Next T
  937.       Next Z
  938.       '
  939.       Repeat
  940.         Repeat
  941.           '
  942.           Mk=0
  943.           Repeat
  944.             X=Mousex
  945.             Y=Mousey
  946.             A$=Inkey$
  947.           Until Mousek=1 Or A$=Chr$(27) Or Mousek=2
  948.           '
  949.           If Mousek=1
  950.             Mk=1
  951.           Endif
  952.           If Mousek=2
  953.             Mk=2
  954.           Endif
  955.           '
  956.           If A$<>Chr$(27) And X>57 And X<567 And Y>43 And Y<259
  957.             '
  958.             ' 1.) Welcher Block ?
  959.             '
  960.             Block%=0
  961.             If Not (Y>140 And Y<164)
  962.               Block%=Int((X-58)/103)+1
  963.               If Y>163
  964.                 Block%=Block%+5
  965.               Endif
  966.             Endif
  967.             '
  968.             ' 2.) Welchen Zahl in dem Block ?
  969.             '
  970.             If Block%<>0
  971.               Zahl%=0
  972.               Faktor%=Block%-1
  973.               If Block%>5
  974.                 Faktor%=Faktor%-5
  975.               Endif
  976.               Zahl%=Int(((X-41-(103*Faktor%))/14.7))
  977.               Faktor%=0
  978.               If Block%>5
  979.                 Faktor%=1
  980.               Endif
  981.               Zahl%=Zahl%+(7*Int(((Y-44-(119.4*Faktor%))/13.4)))
  982.             Endif
  983.             '
  984.             If Block%>0 And Zahl%<50 And Zahl%>0 And Block%<11
  985.               '
  986.               If (Not Tipp!(Block%,Zahl%) And Mk=1)
  987.                 Tipp!(Block%,Zahl%)=True           ! Tipp setzen
  988.               Endif
  989.               If (Tipp!(Block%,Zahl%) And Mk=2)
  990.                 Tipp!(Block%,Zahl%)=False          ! Tipp löschen
  991.               Endif
  992.               '
  993.               @Tipp_anzeigen(Block%,Zahl%)
  994.               '
  995.             Endif
  996.             '
  997.           Else                        ! Pruefen, ob 0/6 Tipps
  998.             Ok!=True
  999.             For I=1 To 10
  1000.               Zaehler%=0
  1001.               For X=1 To 49
  1002.                 If Tipp!(I,X)
  1003.                   Zaehler%=Zaehler%+1
  1004.                 Endif
  1005.               Next X
  1006.               If Zaehler%<>6 And Zaehler%<>0
  1007.                 Ok!=False
  1008.               Endif
  1009.             Next I
  1010.           Endif
  1011.         Until A$=Chr$(27)
  1012.         '
  1013.         If Not Ok!
  1014.           Alert 3,"Zurück zur Erfassung !!!|Falsche Anzahl Tipp's.",1,"** OK **",X%
  1015.         Endif
  1016.         '
  1017.       Until Ok!                     ! Erfassungsende
  1018.       '
  1019.       Alert 3,"   Schein wird im folgenden|auf Diskette gesichert. Bitte|geben Sie den Dateinamen in|   der Fileselect-Box ein.",1,"** OK **",X%
  1020.       '
  1021.       ' Sichern des angelegten Lottoscheines auf Diskette
  1022.       '
  1023.       Do
  1024.         File$=""
  1025.         Fileselect Lw$+":\*.*","",File$
  1026.         Exit If File$=""
  1027.         Exit If File$<>""
  1028.       Loop
  1029.       '
  1030.       If Right$(File$,3)<>"NEU"
  1031.         File$=Left$(File$,25)+"NEU"
  1032.       Endif
  1033.       '
  1034.       Open "O",#1,File$
  1035.       Print #1,Schein_nr$
  1036.       Print #1,Los_nr$
  1037.       Print #1,Wochen_nr$
  1038.       For I=1 To 10
  1039.         For X=1 To 49
  1040.           Print #1,Tipp!(I,X)
  1041.         Next X
  1042.       Next I
  1043.       Close #1
  1044.       '
  1045.       Sput E_maske$
  1046.       '
  1047.     Endif
  1048.   Endif
  1049.   '
  1050. Return
  1051. '
  1052. Procedure Tipp_anzeigen(X,Y)
  1053.   '
  1054.   Local X_txt,Y_txt,X2
  1055.   '
  1056.   If Tipp!(X,Y)
  1057.     Deftext 1,0,0,4
  1058.     X2=X
  1059.     If X2>5
  1060.       X2=X2-5
  1061.     Endif
  1062.     X_txt=59+((X2-1)*103)
  1063.     X3=Y
  1064.     If X3>7
  1065.       Repeat
  1066.         X3=X3-7
  1067.       Until X3<8
  1068.     Endif
  1069.     If X3<>0
  1070.       X_txt=X_txt+((X3-1)*14)
  1071.     Endif
  1072.     If X<6
  1073.       Y_txt=67+((Int((Y-1)/7)-1)*14)
  1074.     Else
  1075.       Y_txt=185+((Int((Y-1)/7)-1)*14)
  1076.     Endif
  1077.     Deffill 1,2,8
  1078.     Fill X_txt,Y_txt
  1079.     Text X_txt,Y_txt,"  "
  1080.     Graphmode 4
  1081.     Text X_txt,Y_txt,Space$(2-Len(Str$(Y)))+Str$(Y)
  1082.     Graphmode 1
  1083.     Deffill 1,2,8
  1084.     Fill X_txt,Y_txt
  1085.     Text X_txt,Y_txt,"  "
  1086.     Graphmode 4
  1087.     Text X_txt,Y_txt,Space$(2-Len(Str$(Y)))+Str$(Y)
  1088.     Graphmode 1
  1089.   Else
  1090.     Deftext 1,0,0,4
  1091.     X2=X
  1092.     If X2>5
  1093.       X2=X2-5
  1094.     Endif
  1095.     X_txt=59+((X2-1)*103)
  1096.     X3=Y
  1097.     If X3>7
  1098.       Repeat
  1099.         X3=X3-7
  1100.       Until X3<8
  1101.     Endif
  1102.     If X3<>0
  1103.       X_txt=X_txt+((X3-1)*14)
  1104.     Endif
  1105.     If X<6
  1106.       Y_txt=67+((Int((Y-1)/7)-1)*14)
  1107.     Else
  1108.       Y_txt=185+((Int((Y-1)/7)-1)*14)
  1109.     Endif
  1110.     Deffill 1,2,8
  1111.     Color 0
  1112.     '
  1113.     For I=1 To 13
  1114.       Line X_txt-1,Y_txt+(I-1)-9,X_txt+11,Y_txt+(I-1)-9
  1115.     Next I
  1116.     '
  1117.     Color 1
  1118.     Text X_txt,Y_txt,"  "
  1119.     Text X_txt,Y_txt,Space$(2-Len(Str$(Y)))+Str$(Y)
  1120.   Endif
  1121.   '
  1122.   Print Chr$(7);
  1123.   '
  1124. Return
  1125. '
  1126. Procedure Zuza_anzeigen(X,Y)
  1127.   '
  1128.   Local X_txt,Y_txt,X2
  1129.   '
  1130.   If Tipp!(X,Y)
  1131.     Deftext 1,0,0,4
  1132.     X2=X
  1133.     If X2>5
  1134.       X2=X2-5
  1135.     Endif
  1136.     X_txt=59+((X2-1)*103)
  1137.     X3=Y
  1138.     If X3>7
  1139.       Repeat
  1140.         X3=X3-7
  1141.       Until X3<8
  1142.     Endif
  1143.     If X3<>0
  1144.       X_txt=X_txt+((X3-1)*14)
  1145.     Endif
  1146.     If X<6
  1147.       Y_txt=67+((Int((Y-1)/7)-1)*14)
  1148.     Else
  1149.       Y_txt=185+((Int((Y-1)/7)-1)*14)
  1150.     Endif
  1151.     Deffill 1,2,4
  1152.     Fill X_txt+1,Y_txt+1
  1153.     Text X_txt,Y_txt,"  "
  1154.     Graphmode 4
  1155.     Text X_txt,Y_txt,Space$(2-Len(Str$(Y)))+Str$(Y)
  1156.     Graphmode 1
  1157.     Deffill 1,2,8
  1158.     Fill X_txt,Y_txt
  1159.     Text X_txt,Y_txt,"  "
  1160.     Graphmode 4
  1161.     Text X_txt,Y_txt,Space$(2-Len(Str$(Y)))+Str$(Y)
  1162.     Graphmode 1
  1163.   Else
  1164.     Deftext 1,0,0,4
  1165.     X2=X
  1166.     If X2>5
  1167.       X2=X2-5
  1168.     Endif
  1169.     X_txt=59+((X2-1)*103)
  1170.     X3=Y
  1171.     If X3>7
  1172.       Repeat
  1173.         X3=X3-7
  1174.       Until X3<8
  1175.     Endif
  1176.     If X3<>0
  1177.       X_txt=X_txt+((X3-1)*14)
  1178.     Endif
  1179.     If X<6
  1180.       Y_txt=67+((Int((Y-1)/7)-1)*14)
  1181.     Else
  1182.       Y_txt=185+((Int((Y-1)/7)-1)*14)
  1183.     Endif
  1184.     Deffill 1,2,8
  1185.     Color 0
  1186.     '
  1187.     For I=1 To 13
  1188.       Line X_txt-1,Y_txt+(I-1)-9,X_txt+11,Y_txt+(I-1)-9
  1189.     Next I
  1190.     '
  1191.     Color 1
  1192.     Text X_txt,Y_txt,"  "
  1193.     Text X_txt,Y_txt,Space$(2-Len(Str$(Y)))+Str$(Y)
  1194.     Circle X_txt,Y_txt,20
  1195.   Endif
  1196.   '
  1197.   Print Chr$(7);
  1198.   '
  1199. Return
  1200. '
  1201. Procedure Schein_auswerten
  1202.   '
  1203.   ' wertet den Lottoschein am Monitor aus !!!
  1204.   '
  1205.   If File$=""
  1206.     Alert 3,"   Schein wird im folgenden| von Diskette geladen. Bitte|   wählen Sie mit Hilfe der|     Fileselect-Box aus.",1,"** OK **",X%
  1207.   Endif
  1208.   '
  1209.   ' Laden des angelegten Lottoscheines von Diskette
  1210.   '
  1211.   If File$=""
  1212.     Do
  1213.       File$=""
  1214.       Fileselect Lw$+":\*.*","",File$
  1215.       Exit If File$=""
  1216.       Exit If File$<>""
  1217.     Loop
  1218.   Endif
  1219.   '
  1220.   If File$<>""
  1221.     Open "I",#1,File$
  1222.     Input #1,Schein_nr$
  1223.     Input #1,Los_nr$
  1224.     Input #1,Wochen_nr$
  1225.     For I=1 To 10
  1226.       For X=1 To 49
  1227.         Input #1,Tipp!(I,X)
  1228.       Next X
  1229.     Next I
  1230.     '
  1231.     X=0
  1232.     If Not Eof(#1)
  1233.       Repeat
  1234.         X=X+1
  1235.         For I=1 To 7
  1236.           Input #1,Gewinnzahlen$(X,I)
  1237.         Next I
  1238.         Input #1,Spiel77$(X)
  1239.       Until Eof(#1)
  1240.     Endif
  1241.     Close #1
  1242.     '
  1243.     Anz_auswertung%=X
  1244.     '
  1245.     If Anz_auswertung%=4
  1246.       Alert 3,"MAXIMALE AUSWERTUNG ERREICHT!|  NEU: Neuer Schein nach Altem|LÖSCH: Extension .ALT setzen|ZEIGE: Anzeige der Auswertung",3,"NEU|LÖSCH|ZEIGE",X%
  1247.       If X%=2 And Right$(File$,3)="NEU"
  1248.         '
  1249.         ' Extension von .NEU auf .ALT setzen
  1250.         '
  1251.         Altfile$=File$
  1252.         Neufile$=Left$(File$,38)+"ALT"
  1253.         Name Altfile$ As Neufile$
  1254.         Goto Rausmarke
  1255.         '
  1256.       Endif
  1257.       If X%=1 And Right$(File$,3)="ALT"
  1258.         '
  1259.         ' Anlegen eines neuen Scheines auf der Basis des Alten
  1260.         '
  1261.         Neuer_file$=Left$(File$,32)
  1262.         Wo_nr=Val(Mid$(File$,33,2))
  1263.         Wo_nr$=Str$(Wo_nr+4)
  1264.         '
  1265.         ' Jahr 88 hat 52 Wochen
  1266.         '
  1267.         If (Wo_nr+4)>52
  1268.           Wo_nr$="1"
  1269.         Endif
  1270.         '
  1271.         If Len(Wo_nr$)=1
  1272.           Wo_nr$="0"+Wo_nr$
  1273.         Endif
  1274.         '
  1275.         Neuer_file$=Neuer_file$+Wo_nr$+Right$(File$,7)
  1276.         Wochen_nr$=Wo_nr$
  1277.         Neuer_file$=Left$(Neuer_file$,38)+"NEU"
  1278.         '
  1279.         Msg$="Alter Schein:|"+Right$(File$,27)+"|Neuer Schein:|"+Right$(Neuer_file$,27)
  1280.         Alert 1,Msg$,1,"** OK **",S%
  1281.         '
  1282.         ' Erfassen der neuen 77'er Nummer
  1283.         '
  1284.         Deftext 1,0,0,13
  1285.         Print At(8,2);Space$(64)
  1286.         Print At(8,2);"Bitte geben Sie die Los-Nr. ein:"
  1287.         @Inp_txt(41,2,1,"_______")
  1288.         Los_nr$=Txt_ausgabe$
  1289.         Text 295,310,Los_nr$
  1290.         '
  1291.         Open "O",#1,Neuer_file$
  1292.         Print #1,Schein_nr$
  1293.         Print #1,Los_nr$
  1294.         Print #1,Wochen_nr$
  1295.         For I=1 To 10
  1296.           For X=1 To 49
  1297.             Print #1,Tipp!(I,X)
  1298.           Next X
  1299.         Next I
  1300.         Close #1
  1301.         Goto Rausmarke
  1302.         '
  1303.       Endif
  1304.       '
  1305.       ' a) Anzeige des geladenen Lottoscheins
  1306.       '
  1307.       Sput E_maske$
  1308.       @Sndmsg("Lottoscheinauswertung {Monitor}")
  1309.       Deftext 1,0,0,13
  1310.       Text 295,310,Los_nr$
  1311.       Deftext 1,0,0,6
  1312.       Text 348,275,Wochen_nr$
  1313.       Text 533,154,Schein_nr$
  1314.       '
  1315.       Color 1
  1316.       If Anz_auswertung%<>0
  1317.         For X=1 To Anz_auswertung%
  1318.           Deftext 1,0,0,6
  1319.           For I=1 To 6
  1320.             Text 64+(I*18),277+(X*15),Gewinnzahlen$(X,I)
  1321.           Next I
  1322.           Text 64+(I*18)+37,277+(X*15),Gewinnzahlen$(X,7)
  1323.           If X<>Anz_auswertung%
  1324.             Text 455,(X*15)+276,Spiel77$(X)
  1325.           Endif
  1326.         Next X
  1327.       Endif
  1328.       Deftext 1,0,0,6
  1329.       For I=1 To 6
  1330.         Text 64+(I*18),277+(Anz_auswertung%*15),Gewinnzahlen$(Anz_auswertung%,I)
  1331.       Next I
  1332.       Text 64+(I*18)+37,277+(Anz_auswertung%*15),Gewinnzahlen$(Anz_auswertung%,7)
  1333.       '
  1334.       ' Auswertung
  1335.       '
  1336.       ' 1.Teil: Anzeigen der richtigen Tipps
  1337.       '
  1338.       For Z=1 To 10
  1339.         For T=1 To 49
  1340.           For Y=1 To 7
  1341.             If ((Tipp!(Z,T)=True) And (Val(Gewinnzahlen$(Anz_auswertung%,Y))=T))
  1342.               If Y<7
  1343.                 @Tipp_anzeigen(Z,T)
  1344.               Else
  1345.                 @Zuza_anzeigen(Z,T)
  1346.               Endif
  1347.             Endif
  1348.           Next Y
  1349.         Next T
  1350.       Next Z
  1351.       '
  1352.       ' 2.Teil: Anzeigen der richtigen Spiel 77-Teile
  1353.       '
  1354.       Puffer$=Spiel77$(Anz_auswertung%)
  1355.       '
  1356.       Deftext 1,0,0,6
  1357.       If Puffer$=Los_nr$
  1358.         Text 455,((Anz_auswertung%*15)+276),Space$(7)
  1359.         Graphmode 4
  1360.         Text 455,((Anz_auswertung%*15)+276),Puffer$
  1361.         Graphmode 1
  1362.       Else
  1363.         If Right$(Los_nr$,1)=Right$(Puffer$,1)
  1364.           I=0
  1365.           Repeat
  1366.             I=I+1
  1367.             If Mid$(Los_nr$,(8-I),1)=Mid$(Puffer$,(8-I),1)
  1368.               '
  1369.               Text 455+((7-I)*8),(Anz_auswertung%*15)+276," "
  1370.               Graphmode 4
  1371.               Text 455+((7-I)*8),(Anz_auswertung%*15)+276,Mid$(Puffer$,(8-I),1)
  1372.               Graphmode 1
  1373.               '
  1374.             Endif
  1375.           Until Mid$(Los_nr$,(8-I-1),1)<>Mid$(Puffer$,(8-I-1),1)
  1376.           '
  1377.           Text 455,((Anz_auswertung%*15)+276),Left$(Puffer$,(7-I))
  1378.         Endif
  1379.         '
  1380.       Endif
  1381.       ' ##################
  1382.     Else
  1383.       '
  1384.       ' a) Anzeige des geladenen Lottoscheins
  1385.       '
  1386.       Sput E_maske$
  1387.       @Sndmsg("Lottoscheinauswertung {Monitor}")
  1388.       Deftext 1,0,0,13
  1389.       Text 295,310,Los_nr$
  1390.       Deftext 1,0,0,6
  1391.       Text 348,275,Wochen_nr$
  1392.       Text 533,154,Schein_nr$
  1393.       '
  1394.       Color 1
  1395.       If Anz_auswertung%<>0
  1396.         For X=1 To Anz_auswertung%
  1397.           Deftext 1,0,0,6
  1398.           For I=1 To 6
  1399.             Text 64+(I*18),277+(X*15),Gewinnzahlen$(X,I)
  1400.           Next I
  1401.           Text 64+(I*18)+37,277+(X*15),Gewinnzahlen$(X,7)
  1402.           Text 455,(X*15)+276,Spiel77$(X)
  1403.         Next X
  1404.       Endif
  1405.       '
  1406.       ' b) Eingabe der neuen Gewinnzahlen
  1407.       '
  1408.       Alert 2,"   Sollen die Gewinnzahlen|eines anderen Scheines über-|     nommen werden ?",1,"JA|NEIN",X%
  1409.       '
  1410.       If X%=1
  1411.         '
  1412.         ' Gewinnzahlenübernahme
  1413.         '
  1414.         Alert 3,"  Schein bitte auswählen,    | von dem die Zahlen über-   |   nommen werden sollen.",1,"** OK **",X%
  1415.         '
  1416.         ' Laden der Gewinnzahlen des anderen Scheines
  1417.         '
  1418.         Repeat
  1419.           File2$=""
  1420.           Fileselect Lw$+":\*.*","",File2$
  1421.         Until File2$<>"" And File$<>File2$
  1422.         '
  1423.         Open "I",#1,File2$
  1424.         Input #1,A$
  1425.         Input #1,A$
  1426.         Input #1,A$
  1427.         For I=1 To 10
  1428.           For X=1 To 49
  1429.             Input #1,A!
  1430.           Next X
  1431.         Next I
  1432.         '
  1433.         X=0
  1434.         If Not Eof(#1)
  1435.           Repeat
  1436.             X=X+1
  1437.             For I=1 To 7
  1438.               Input #1,Gewinnzahlen2$(X,I)
  1439.             Next I
  1440.             Input #1,Spiel772$(X)
  1441.           Until Eof(#1)
  1442.         Endif
  1443.         Close #1
  1444.         '
  1445.         For I=1 To 7
  1446.           Gewinnzahlen$(Anz_auswertung%+1,I)=Gewinnzahlen2$(X,I)
  1447.         Next I
  1448.         Spiel77$(Anz_auswertung%+1)=Spiel772$(X)
  1449.         '
  1450.       Else
  1451.         '
  1452.         ' Gewinnzahlenerfassung
  1453.         '
  1454.         Repeat
  1455.           Ok!=True
  1456.           Deftext 1,0,0,13
  1457.           Print At(8,2);Space$(64)
  1458.           Print At(8,2);"Bitte geben Sie die Gewinnzahlen ein:"
  1459.           @Inp_txt(46,2,1,"00,00,00,00,00,00,00")
  1460.           For I=1 To 7
  1461.             Gewinnzahlen$(Anz_auswertung%+1,I)=Mid$(Txt_ausgabe$,(((I-1)*3)+1),2)
  1462.             If Val(Gewinnzahlen$(Anz_auswertung%+1,I))<1 Or Val(Gewinnzahlen$(Anz_auswertung%+1,I))>49
  1463.               Ok!=False
  1464.             Endif
  1465.             For X=1 To (I-1)
  1466.               If (Gewinnzahlen$(Anz_auswertung%+1,X)=Gewinnzahlen$(Anz_auswertung%+1,I) And I<>X)
  1467.                 Ok!=False
  1468.               Endif
  1469.             Next X
  1470.           Next I
  1471.           '
  1472.           If Not Ok!
  1473.             Alert 3,"Falsche Zahl! Erneute Eingabe!",1,"** OK **",X%
  1474.           Endif
  1475.         Until Ok!
  1476.         '
  1477.         Deftext 1,0,0,13
  1478.         Print At(8,2);Space$(64)
  1479.         Print At(8,2);"Bitte geben Sie die Gewinnzahlen 77 ein:"
  1480.         @Inp_txt(49,2,1,"_______")
  1481.         Spiel77$(Anz_auswertung%+1)=Txt_ausgabe$
  1482.       Endif
  1483.       '
  1484.       ' Abspeichern der Gewinnzahlen !!!
  1485.       '
  1486.       Anz_auswertung%=Anz_auswertung%+1
  1487.       Open "A",#1,File$
  1488.       For I=1 To 7
  1489.         Print #1,Gewinnzahlen$(Anz_auswertung%,I)
  1490.       Next I
  1491.       Print #1,Spiel77$(Anz_auswertung%)
  1492.       Close #1
  1493.       '
  1494.       ' Anzeige
  1495.       '
  1496.       Deftext 1,0,0,6
  1497.       For I=1 To 6
  1498.         Text 64+(I*18),277+(Anz_auswertung%*15),Gewinnzahlen$(Anz_auswertung%,I)
  1499.       Next I
  1500.       Text 64+(I*18)+37,277+(Anz_auswertung%*15),Gewinnzahlen$(Anz_auswertung%,7)
  1501.       Text 455,(Anz_auswertung%*15)+276,Spiel77$(Anz_auswertung%)
  1502.       '
  1503.       ' Auswertung
  1504.       '
  1505.       For Z=1 To 10
  1506.         For T=1 To 49
  1507.           For Y=1 To 7
  1508.             If ((Tipp!(Z,T)=True) And (Val(Gewinnzahlen$(Anz_auswertung%,Y))=T))
  1509.               If Y<7
  1510.                 @Tipp_anzeigen(Z,T)
  1511.               Else
  1512.                 @Zuza_anzeigen(Z,T)
  1513.               Endif
  1514.             Endif
  1515.           Next Y
  1516.         Next T
  1517.       Next Z
  1518.       '
  1519.       ' 2.Teil: Anzeigen der richtigen Spiel 77-Teile
  1520.       '
  1521.       Puffer$=Spiel77$(Anz_auswertung%)
  1522.       '
  1523.       Deftext 1,0,0,6
  1524.       If Puffer$=Los_nr$
  1525.         Text 455,((Anz_auswertung%*15)+276),Space$(7)
  1526.         Graphmode 4
  1527.         Text 455,((Anz_auswertung%*15)+276),Puffer$
  1528.         Graphmode 1
  1529.       Else
  1530.         If Right$(Los_nr$,1)=Right$(Puffer$,1)
  1531.           I=0
  1532.           Repeat
  1533.             I=I+1
  1534.             If Mid$(Los_nr$,(8-I),1)=Mid$(Puffer$,(8-I),1)
  1535.               '
  1536.               Text 455+((7-I)*8),(Anz_auswertung%*15)+276," "
  1537.               Graphmode 4
  1538.               Text 455+((7-I)*8),(Anz_auswertung%*15)+276,Mid$(Puffer$,(8-I),1)
  1539.               Graphmode 1
  1540.               '
  1541.             Endif
  1542.           Until Mid$(Los_nr$,(8-I-1),1)<>Mid$(Puffer$,(8-I-1),1)
  1543.         Endif
  1544.         '
  1545.         Text 455,((Anz_auswertung%*15)+276),Left$(Puffer$,(7-I))
  1546.       Endif
  1547.     Endif                       ! ENDIF zu anz_auswertung%=4
  1548.   Endif                         ! ENDIF zu File$=""
  1549.   '
  1550.   '
  1551.   @Sndmsg("Weiter mit TASTE oder KLICK")
  1552.   Repeat
  1553.     A$=Inkey$
  1554.   Until A$<>"" Or Mousek<>0
  1555.   Sput E_maske$
  1556.   Rausmarke:
  1557.   '
  1558. Return
  1559. '
  1560. Procedure Auswertung_drucken
  1561.   '
  1562.   ' druckt die Auswertung eines Scheins
  1563.   '
  1564.   Alert 3,"Bitte Matrixdrucker ein-| stellen und ausrichten .",2,"ABBRUCH|** OK **",X%
  1565.   If X%=2
  1566.     '
  1567.     ' Laden des angelegten Lottoscheines von Diskette
  1568.     '
  1569.     Do
  1570.       File$=""
  1571.       Fileselect Lw$+":\*.*","",File$
  1572.       Exit If File$=""
  1573.       Exit If File$<>""
  1574.     Loop
  1575.     '
  1576.     If File$<>""
  1577.       Open "I",#1,File$
  1578.       Input #1,Schein_nr$
  1579.       Input #1,Los_nr$
  1580.       Input #1,Wochen_nr$
  1581.       For I=1 To 10
  1582.         For X=1 To 49
  1583.           Input #1,Tipp!(I,X)
  1584.         Next X
  1585.       Next I
  1586.       '
  1587.       X=0
  1588.       If Not Eof(#1)
  1589.         Repeat
  1590.           X=X+1
  1591.           For I=1 To 7
  1592.             Input #1,Gewinnzahlen$(X,I)
  1593.           Next I
  1594.           Input #1,Spiel77$(X)
  1595.         Until Eof(#1)
  1596.       Endif
  1597.       Close #1
  1598.       '
  1599.       Anz_auswertung%=X
  1600.       '
  1601.       '
  1602.     Endif
  1603.     If Anz_auswertung%=0
  1604.       Alert 3,"Es kann keine Auswertung ge-|      druckt werden.",1,"** OK **",X%
  1605.     Else
  1606.       '
  1607.       ' Drucken der Auswertung
  1608.       '
  1609.       For I=1 To Anz_auswertung%
  1610.         '
  1611.         Lprint " Auswertung ";Str$(I);" ----> ";Los_nr$+" ";Schein_nr$;"/";Wochen_nr$
  1612.         Lprint "+----------+----+----+----+----+----+----+-+----+    +----+"
  1613.         Lprint "| Zahlen:  |";
  1614.         For X=1 To 6
  1615.           Lprint " "+Gewinnzahlen$(I,X)+" |";
  1616.         Next X
  1617.         Lprint " | "+Gewinnzahlen$(I,7)+" |    |wahr|"
  1618.         Lprint "+----------+----+----+----+----+----+----+-+----+    +----+"
  1619.         '
  1620.         For X=1 To 10
  1621.           Lprint "| Block";Space$(3-Len(Str$(X)));Str$(X);" | ";
  1622.           Richtige%=0
  1623.           For Y=1 To 6
  1624.             If Tipp!(X,Val(Gewinnzahlen$(I,Y)))
  1625.               Richtige%=Richtige%+1
  1626.               Lprint Gewinnzahlen$(I,Y);" | ";
  1627.             Else
  1628.               Lprint "   | ";
  1629.             Endif
  1630.           Next Y
  1631.           Lprint "| ";
  1632.           If Tipp!(X,Val(Gewinnzahlen$(I,7)))
  1633.             Richtige%=Richtige%+1
  1634.             Lprint Gewinnzahlen$(I,7);" |";
  1635.           Else
  1636.             Lprint "   |";
  1637.           Endif
  1638.           Lprint "    | ";Str$(Richtige%);"  |"
  1639.         Next X
  1640.         Lprint "+----------+----+----+----+----+----+----+-+----+    +----+"
  1641.         Lprint " Los-Nr.: ";Los_nr$;" <---> ";Spiel77$(I)
  1642.         Lprint
  1643.         '
  1644.       Next I
  1645.       '
  1646.     Endif
  1647.   Endif
  1648. Return
  1649. '
  1650. Procedure Vorzugslaufwerk_waehlen
  1651.   '
  1652.   @Rette_fenster
  1653.   Deftext 1,13,0,13
  1654.   Text 225,125,"Vorzugslaufwerk einstellen:"
  1655.   Deftext 1,0,0,13
  1656.   Text 240,170,"Diskstation:  {"+Lw$+"}"
  1657.   Print At(31,15);Chr$(7);
  1658.   Input "Buchstabe ['A'..'F']:";A$
  1659.   A$=Upper$(A$)
  1660.   If A$>="A" And A$<="F" And Len(A$)=1
  1661.     Lw$=A$
  1662.   Endif
  1663.   '
  1664.   Put Rette_fenster_x%,Rette_fenster_y%,Retter$
  1665.   '
  1666. Return
  1667. '
  1668. Procedure Anleitung
  1669.   '
  1670.   ' läßt die Anleitung in einem Fenster erscheinen
  1671.   '
  1672.   Alert 2,"Anl. anzeigen oder drucken ?",1,"ZEIGEN|DRUCKEN",X%
  1673.   If X%=1
  1674.     '
  1675.     Sget E_maske$
  1676.     Deftext 1,0,0,4
  1677.     Color 0
  1678.     For I=1 To 302
  1679.       Line 54,40+I,570,40+I
  1680.     Next I
  1681.     Graphmode 4
  1682.     I=1
  1683.     Repeat
  1684.       Text 58,40+(I*6),"    "+Anleitung$(I)+"   "
  1685.       I=I+1
  1686.     Until I=51 Or Anleitung$(I)="***"
  1687.     '
  1688.     @Warnton
  1689.     Repeat
  1690.     Until Mousek<>0
  1691.     '
  1692.     Graphmode 1
  1693.     Deftext 1,0,0,4
  1694.     Color 0
  1695.     For I=1 To 302
  1696.       Line 54,40+I,570,40+I
  1697.     Next I
  1698.     Graphmode 4
  1699.     I=51
  1700.     Repeat
  1701.       Text 58,46+((I-51)*6),"    "+Anleitung$(I)+"   "
  1702.       I=I+1
  1703.     Until I=101 Or Anleitung$(I)="***"
  1704.     Graphmode 1
  1705.     '
  1706.     @Warnton
  1707.     Repeat
  1708.     Until Mousek<>0
  1709.     '
  1710.     Graphmode 1
  1711.     Deftext 1,0,0,4
  1712.     Color 0
  1713.     For I=1 To 302
  1714.       Line 54,40+I,570,40+I
  1715.     Next I
  1716.     Graphmode 4
  1717.     I=102
  1718.     Repeat
  1719.       Text 58,46+((I-102)*6),"    "+Anleitung$(I)+"   "
  1720.       I=I+1
  1721.     Until I=153 Or Anleitung$(I)="***"
  1722.     Graphmode 1
  1723.     '
  1724.     @Warnton
  1725.     Repeat
  1726.     Until Mousek<>0
  1727.     '
  1728.     Sput E_maske$
  1729.     Clr E_maske$
  1730.     Deftext 1,0,0,13
  1731.     Menu Off
  1732.   Else
  1733.     '
  1734.     ' Anleitung drucken
  1735.     '
  1736.     Alert 3,"Drucker einstellen|und ausrichten !",1,"** OK **",X%
  1737.     I=1
  1738.     Repeat
  1739.       Lprint Anleitung$(I)
  1740.       I=I+1
  1741.     Until Anleitung$(I)="***"
  1742.     @Warnton
  1743.     '
  1744.   Endif
  1745.   '
  1746. Return
  1747. '
  1748. Procedure Init2
  1749.   '
  1750.   I=0
  1751.   Repeat
  1752.     I=I+1
  1753.     Read Anleitung$(I)
  1754.   Until Anleitung$(I)="***"
  1755.   '
  1756. Return
  1757. '
  1758. Data "                                                                              "
  1759. Data "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
  1760. Data "                              ST-Lotto-Analysator                             "
  1761. Data "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
  1762. Data "                                                                              "
  1763. Data "Dieses Programm ist Public-Domain-Software. Kopieren und Weitergabe ist nicht "
  1764. Data "nur erlaubt, sondern sogar erwünscht. Allerdings  darf  kein Programmteil weg-"
  1765. Data "gelassen oder das Programm in irgendeiner Form verändert werden. Kopieren Sie "
  1766. Data "einfach den kompletten Ordner 'ST_LOTTO_.BOX', der alle Dateien zum fehler-   "
  1767. Data "freien Ablauf des Programms enthält. Eine Spende in beliebiger Höhe oder Ver- "
  1768. Data "besserungsvorschläge bitte an eine der folgenden Adressen:                    "
  1769. Data "                                                                              "
  1770. Data "         Idee & Graphik                                Programmierung         "
  1771. Data "         --------------                                --------------         "
  1772. Data "         Gerhard Danz                                  Thomas Leufkes         "
  1773. Data "         Postfach 90/1428                              Knappenstr. 10         "
  1774. Data "         6450 Hanau 9                                  4353 Oer-Erkenschwick  "
  1775. Data "                                                                              "
  1776. Data "         Postscheck Ffm                                KSK Recklinghausen     "
  1777. Data "         BLZ 50010060                                  BLZ 426 501 50         "
  1778. Data "         Kt.-Nr. 505459-608                            Kt.-Nr. 8273682        "
  1779. Data "                                                                              "
  1780. Data "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
  1781. Data "                                                                              "
  1782. Data "Das Programm hilft Ihnen bei der Auswertung Ihrer 4-Wochenscheine. Sollten Sie"
  1783. Data "regelmäßig Lotto spielen oder als Systemspieler immer dieselben Zahlen tippen,"
  1784. Data "wird Ihnen das Programm in Zukunft eine große Hilfe sein. Die folgende Kurzan-"
  1785. Data "leitung gibt Ihnen nun Auskunft über die wichtigsten Programmpunkte:          "
  1786. Data "                                                                              "
  1787. Data "1.} NACH PROGRAMMSTART:                                                       "
  1788. Data "                                                                              "
  1789. Data "    Nach dem Programmstart läßt sich zunächst das Datum und die aktuelle Uhr- "
  1790. Data "    zeit einstellen. Danach fragt das Programm nach dem Vorzugslaufwerk (Stan-"
  1791. Data "    dardwert A). Anschließend läßt sich noch ein Treiberprogramm zur korrekten"
  1792. Data "    Druckeransteuerung instalieren (z.B. PTEPSON.PRG bei Epson-Kompatiblen).  "
  1793. Data "    Das Programmintro verlassen Sie durch einen Mausklick.                    "
  1794. Data "                                                                              "
  1795. Data "2.} ST_LOTTO                                                                  "
  1796. Data "                                                                              "
  1797. Data "    Dieser Menüpunkt gibt Ihnen Auskunft über die Herkunft des Programms.     "
  1798. Data "                                                                              "
  1799. Data "3.} ANLEGEN                                                                   "
  1800. Data "                                                                              "
  1801. Data "    Um einen neuen Lottoschein anzulegen, wählen Sie bitte diesen Menüpunkt.  "
  1802. Data "    Es ist wichtig, daß beim Anlegen eines Scheines alle Eingaben sorgfälltigt"
  1803. Data "    gemacht werden, da mit Hilfe dieses ersten Scheins weitere Tippscheine er-"
  1804. Data "    zeugen lassen. Im Einzelnen wird nach der Spielschein-Nummer, der Wochen- "
  1805. Data "    Nr. und der Spiel 77-Nr. gefragt. Anschließend werden die Tippzahlen ein- "
  1806. Data "    fach angeklickt. Ein rechter Klick macht die Eingabe wieder rückgängig.   "
  1807. Data "                                                                              "
  1808. Data "                                                                              "
  1809. Data "    Sind alle Eingaben (einschl. der 6 Tippzahlen pro Block) abgeschloßen, ge-"
  1810. Data "    langen Sie mit Hilfe der ESC-Taste über eine Prüfroutine zum Abspeichern  "
  1811. Data "    des angelegten Scheines. Die Abspeicherung erfolgt in dem Ordner SCHEINE_."
  1812. Data "    DAT. Benutzen Sie folgendes Format bei der Eingabe des neuen Dateinamens  "
  1813. Data "    in der erscheinenden Fileselector-Box:                                    "
  1814. Data "                                                                              "
  1815. Data "    z.B. SCH11_01.NEU                                                         "
  1816. Data "    =================                                                         "
  1817. Data "    d.h. SCHein Wochenspiel Nr.=11 _ Spielschein-Nr. =01.NEU                  "
  1818. Data "         ^^^                    ^^ ^                  ^^^^^^                  "
  1819. Data "                                                                              "
  1820. Data "4.} AUSWERTEN                                                                 "
  1821. Data "                                                                              "
  1822. Data "    Rufen Sie den Punkt AUSWERTEN aus der Menüleiste heraus aus, so erscheint "
  1823. Data "    eine weitere Fileselector-Box, mit Hilfe der Sie den auszuwertenden Schein"
  1824. Data "    aus dem Ordner SCHEINE_.DAT wählen können. Anschließend fragt das Programm"
  1825. Data "    Sie, ob Sie die Gewinnzahlen eines anderen Scheines übernehmen wollen,oder"
  1826. Data "    ob Sie neue Gewinnzahlen erfassen wollen. Die Übernahme ist insbesondere  "
  1827. Data "    dann von größerem Nutzen,wenn Sie mit mehreren Scheinen pro Woche spielen."
  1828. Data "    Die Eingabe der Lottozahlen ist beliebig, nur muß die Zusatzzahl zuletzt  "
  1829. Data "    erfasst werden. Nach einer Überprüfung,ob z.B. doppelte oder unsinnige Ge-"
  1830. Data "    winnzahlen genannt wurden, folgt die Eingabe der Spiel 77-Nummer.Anschlie-"
  1831. Data "    ßend folgt das Abspeichern auf Diskette. Nun folgt die eigentliche Auswer-"
  1832. Data "    tung, indem das Programm Ihre Tippzahlen mit den entweder erfassten oder  "
  1833. Data "    übernommenen Gewinnzahlen vergleicht und ggf. vorhandene Übereinstimmungen"
  1834. Data "    auf Ihrem Monitor invers darstellt. Sind mehere 4-Wochen-Spielscheine auf "
  1835. Data "    Diskette abgelegt,so haben Sie nun die Möglichkeit durch die entsprechende"
  1836. Data "    Antwort in der Alert-Box den nächsten Schein zur Auswertung heranzuziehen."
  1837. Data "    Hier macht sich nun der formatierte Dateiname in Ihrem SCHEINE_.DAT Ordner"
  1838. Data "    von Nutzen. Haben Sie z.B. zuvor den Schein 'SCH11_01.NEU' ausgewertet,er-"
  1839. Data "    halten Sie nun den Schein 'SCH11_02.NEU'. D.h. die Spielschein-Nummer wur-"
  1840. Data "    de um eins erhöht. Auch hier kann man nun zwischen der Erfassung oder der "
  1841. Data "    Übernahme der Gewinnzahlen wählen. Jedoch ist es bei dem 2. Spielschein   "
  1842. Data "    sinnvoller und praktischer die Gewinnzahlen des 1. Spielscheines zu über- "
  1843. Data "    nehmen.Die Übernahme vollzieht sich einfach durch das Auswählen der Schein"
  1844. Data "    datei, die die neusten Gewinnzahlen enthält (1 x neu pro Woche, also in   "
  1845. Data "    unserem Beispiel die Datei 'SCH11_01.NEU'.                                "
  1846. Data "                                                                              "
  1847. Data "    Eine weitere Option des Menüpunktes AUSWERTEN ist die Reaktion auf einen  "
  1848. Data "    komplett ausgewerteten Lottoschein. Da es sich bei den Lottoscheinen um 4 "
  1849. Data "    Wochen Scheine handelt, ist dies nach jeweils 4 Wochen der Fall.Ihnen ste-"
  1850. Data "    hen nun folgende Möglichkeiten zur Verfügung:                             "
  1851. Data "                                                                              "
  1852. Data "     {Die folgenden Möglichkeiten erscheinen nur nach einer AUSWERTUNG eines  "
  1853. Data "      mit vier Gewinnzahlenreihen versehenen Scheins !}                       "
  1854. Data "                                                                              "
  1855. Data "4.}1.} NEU                                                                    "
  1856. Data "       Wird dieser Punkt in der Alert-Box angeklickt, so wird der Schein dazu "
  1857. Data "                                                                              "
  1858. Data "                                                                              "
  1859. Data "                                                                              "
  1860. Data "       benutzt, eine neue Schein-Datei anzulegen. Dabei werden die Wochen-Nr. "
  1861. Data "       um vier erhöht (4 Wochen-Schein) und die Tippzahlen übernommen. Danach "
  1862. Data "       werden Sie vom Programm her aufgefordert, eine neue Spiel 77-Nummer zu "
  1863. Data "       nennen, da sich diese ja bei jedem Tippschein ändert. Die Spielschein- "
  1864. Data "       nummer wird um vier erhöht. Hieß der alte Schein z.B. SCH11_01.NEU, so "
  1865. Data "       nennt sich die neue Datei in Ihrem SCHEINE_.DAT-Ordner nun SCH15_01.NEU"
  1866. Data "                                                                              "
  1867. Data "4.}2.} LÖSCH                                                                  "
  1868. Data "                                                                              "
  1869. Data "       Dieser Punkt löscht die Lottoschein-Datei nicht,sondern wandelt die Ex-"
  1870. Data "       tension der Datei von .NEU in .ALT um, so daß Verwechselungen vermieden"
  1871. Data "       werden.                                                                "
  1872. Data "                                                                              "
  1873. Data "4.}3.} ZEIGEN                                                                 "
  1874. Data "                                                                              "
  1875. Data "       Mit ZEIGEN wird der Schein nochmals auf dem Monitor ausgewertet.       "
  1876. Data "                                                                              "
  1877. Data "5.} AUSWERTUNG DRUCKEN                                                        "
  1878. Data "                                                                              "
  1879. Data "    Der Ausdruck einer Auswertung umfasst alle Ziehungen, die der ausgewählte "
  1880. Data "    Lottoschein bisher unterzogen wurde. Mit dieser Übersicht läßt sich gut   "
  1881. Data "    der aktuelle Spielstand veranschaulichen. Dabei ist es egal, ob die Datei "
  1882. Data "    die Extension .NEU oder .ALT hat.                                         "
  1883. Data "                                                                              "
  1884. Data "6.} HARDCOPY                                                                  "
  1885. Data "                                                                              "
  1886. Data "    Dieser Menüpunkt fertigt nach Abfrage einen Bildschirmausdruck an.        "
  1887. Data "                                                                              "
  1888. Data "7.} PROGRAMMENDE                                                              "
  1889. Data "                                                                              "
  1890. Data "    Nach Abfrage können Sie mit Hilfe dieses Menüpunktes das Programm beenden."
  1891. Data "                                                                              "
  1892. Data "                                                                              "
  1893. Data "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
  1894. Data "                                                                              "
  1895. Data "Ansonsten bleibt uns nur zu wünschen, daß Sie recht  viel RICHTIGE aus Ihren  "
  1896. Data "Tippzahlen herauspicken und das Sie mit Hilfe des Programms eine bessere Über-"
  1897. Data "sicht über Ihre Spielscheine gewinnen ...                                     "
  1898. Data "                                                                              "
  1899. Data "                                                                              "
  1900. Data "                                                                              "
  1901. Data "                                                                              "
  1902. Data "    mfg                                                                       "
  1903. Data "                                                                              "
  1904. Data "       Gerhard Danz / Thomas Leufkes                                          "
  1905. Data "                                                                       {05/88}"
  1906. Data "                                                                              "
  1907. Data "                                                                              "
  1908. Data "                                                                              "
  1909. Data "***"
  1910.